unit sci.functions;

interface

uses
  sci.types;

const
  MAX_PARAMS = 100;
  MAX_FUNCS = 100;

type
  TFuncParams = array [1..MAX_PARAMS] of TValue;
  TFuncHandler = function (p: TFuncParams): TValue;
  TFunction = record
    name: string;
    handler: TFuncHandler;
  end;
  TFunctions = array [1..MAX_FUNCS] of TFunction;

var
  funcs: TFunctions;
  funcsCount: integer;

implementation

initialization
  funcsCount := 0;

end.
